﻿Public Class FormFlbInfoListUnused
    Dim objFLBinfo As New clsFLBinfo
    Private Sub FormFlbInfoListUnused_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        setDgvData()
    End Sub
    Public Sub setDgvData()
        Dim dt As DataTable = objFLBinfo.getFlbInfoUnused()
        dt.Columns.Add("which_side_name")
        If dt.Rows.Count > 0 Then
            For Each row As DataRow In dt.Rows
                If row("which_side") = "0" Then
                    row("which_side_name") = "朝上"
                Else
                    row("which_side_name") = "朝下"
                End If
            Next
        End If
        dgv.AutoGenerateColumns = False
        dgv.DataSource = dt
    End Sub
End Class